; para correr este test ent no debe ser nil 
(SETQ PRG2 '(
	(int i j)
	(int k)
	(main 	(
			(scanf k)
			(i = 1)
			(while (i < k)
				( (printf i)
				  (i ++)
				  (if (i == 3)
					((printf "es 3"))
				
			 	  )
				)
			)
			(printf k)
		)
	)
)
)
;debe dar (1 2 3 4 ... 10)
;ademas q ande (++i), (i++), (i=i+1), (z += 1)